    VBWindows APIʵļ           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  VBWindows APIʵļ     VBWindows APIʵļ ڣ2007914 ߣ 鿴:[     С ]       ʾ£ 

 

Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FileTime, lpLastAccessTime As FileTime, lpLastWriteTime As FileTime) As Long 

Private Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long 

 

Dim file As Long 
Dim CreationTime As FileTime 
Dim lastaccesstime As FileTime 
Dim lastaccesstime As FileTime 

ṹ 

Private Type FileTime 
dwLowDateTime As Long 
dwHighDateTime As Long 

End Type 

Private Sub Form_Load() 
str1 = "c:\text.txt" 
file = lopen(str1, READ_WRITE) ļ 
temp = GetFileTime(file, CreationTime, lastaccesstime, lastwritetime)õļϢ 
MsgBox CreationTime ʾϢ 

End Sub 
ϴʾļĴʱ 

5CopyFile 

ãļvbfilecopy 

ʽ 

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long 
˵LongʾɹʾʧܡGetLastError 

˵ 


ͼ˵ lpExistingFileName StringԴļ lpNewFileName StringĿļ bFailIfExists LongΪTRUE㣩ôһĿļѾڣûʧܡĿļд 
ʾ£ 

 

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long 

Private Sub Form_Load() 

CopyFile "c:\test1.txt", "c:\test2.txt", 1 

End Sub 
ϴ뽫c:\test1.txt c:\test2.txtۡ  
6MoveFile, MoveFileEx 

ãƶļdwFlagsΪ㣬MoveFileȫȼMoveFileEx 

ʽ 

Declare Function MoveFile&amp; Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) 
 һҳ   [1]   [2]   [3]   [4]   [5]   [6]   һҳ      Ʊҳַͱ⣬͸QQ/Msnĺһ 
 
   VBWindows APIʵļ £   VB+Accessͼϵͳ   VBʱͱܵ   VBA̼Excelʵ   VBʹDirectXļ̳   VBѧ±ܼӴ   VBݿԴ60ʵ   VBʹEXCEL   180VBͼνԴʵ   VBSűԭ 1   VB쳬Ի˵  VBWindows APIʵļ    Mvbox V2.0ʽ   AutoCAD ʵս VB051118   Rmvb Rm޸ս V1.23   ȫȼԶVBϻģ V1.1   Divx Avi Asf Wmv Wma Rm Rmvb ޸ V3.23   Allok RM RMVB to AVI MPEG DVD Converter V2.1.0630    콭 1.1VB   VBAģ V1.72İ   ɺȫȼԶVBϻϵͳ V7.0 ׼   Apex RM RMVB Converter V6.33   
һƪ: vb˸ı  
һƪ: ApiWindowsеʱ  رվرֹתصר¿תأעԭʼ  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com     ƷƼ  
 ȵTOP10    VB+Accessͼϵͳ    VBʱͱܵ    ؼС洰С仯仯    VBʹDirectXļ̳    VBѧ±ܼӴ    VBݿԴ60ʵ    VBʹEXCEL    180VBͼνԴʵ    VB쳬Ի˵    API޸עģ    ͨſؼMSCommʹ    WINDOWSϢ˵    16תʮ, 16תɶƵ    vsprintӡʵ    VB6DataGridʵͨõӱ    webbrowser 2ղأ    FindWindow    VB6.0ͼ    VB֮·ý    VB̳ ڶ£ؼѧϰ     رƼ    ǳVB.Net Windows Form    ׹Ʊ˰ʼ    VisualBasic 6еĺִ    Զȡû½ƣٽ֤    APIָĿ¼ļ    VBݿԴ60ʵ    VBIEԶ尴ť    VBMS OfficeCOM    Visual Basicװ    WebComputingADOܽᱨ    vsprintӡʵ    VBʵһ򵥵ESMTPͻ    webbrowser 2ղأ    SetForegroundWindow    API޸עģ    VB쳬Ի˵    WINDOWSϢ˵    ؼС洰С仯仯    VBʱͱܵ         | () | Ȩ |  | Ϣ   Copyright 2003-2007  All Rights Reserved.  ICP05018371       